English
Español
CriarEstoque
Ligar o produto a vários depositos.
Nota
Se o sistema estiver parametrizado para a geração do bloco K, algumas consistências e bloqueios podem ser realizadas nessa função, garantindo a correta geração de informações do arquivo, conforme guia prático. Confira estas consistências na tela Parâmetros e consistências da empresa (F070ECN).
Sintaxe: Função CriarEstoque(Alfa End Produto, Alfa End Derivacao, Alfa End Deposito);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| Produto | Alfa | |
| Derivacao | Alfa | |
| Deposito | Alfa |
Exemplo:
definir alfa VSEstado;
definir alfa VSCodPro;
definir alfa VSCodDer;
definir numero VSCodEmp;
se (VSEstado = "INSERINDO")
inicio
definir cursor Cur_Dep;
definir alfa vCodDep;
Cur_Dep.Sql "SELECT CODDEP,TIPDEP FROM E205DEP WHERE CODEMP = :VSCodEmp";
Cur_Dep.AbrirCursor();
Enquanto (Cur_Dep.Achou)
inicio
se (Cur_Dep.TipDep <> 2)
inicio
vCodDep = Cur_Dep.CodDep;
CriarEstoque(VSCodPro, VSCodDer, vCodDep);
fim;
Cur_Dep.Proximo();
fim;
Cur_Dep.FecharCursor();
fim;
English
Español
